((def-entryprop body (body ?body :time ?t)
  :Doc "The body tool."
  :English ("the body for ~a" (nlg ?body 'at-time ?t)))
(def-entryprop vector (vector ?body ?quantity ?direction)
  :helpform (vector ?quantity ?direction)
  :Doc "The generic vector entry tool."
  :English ("a ~a" (ont-vector-entryprop-format-func ?body ?quantity ?direction))))